set more off

use "dataset_dropoff", clear

local j = 1

foreach city in Memphis Nashville Illinois {

	#delimit;

	gr tw 
		(con N Order if City == "`city'", mlabpos(12) col(black))
		,
			name(g`city', replace) 
			title("`city'")
			plotregion(style(none))
			ylab(, angle(horiz) format(%20.0fc))
			xtitle("Question")
			ytitle("Responses")
			;
			
	#delimit cr

	local mygraphs `mygraphs' g`city'

}

gr combine `mygraphs'

gr export "figure A2.eps", replace
shell epstopdf "figure A2.eps"
